#' Print Function for lin_reg Objects
#'
#' This function prints the details of a 'lin_reg' model.
#'
#' @param x An object of class 'lin_reg'.
#' @param digits The number of significant digits to use.
#' @param... Additional arguments passed to print.default.
#' @examples
#' x <- rnorm(100)
#' y <- 20 * x + 23 + rnorm(100)
#' data <- data.frame(x = x, y = y)
#' model <- lin_reg(y ~ x, data = data)
#' print(model)
print.lin_reg <- function(x, digits = max(3, getOption("digits") - 3),...){
  cat("Call:\n")
  print(x$call)
  cat("\nCoefficients:\n")
  print(x$coef, digits = digits)
}
